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DMISMN/' EXAMPLE_PR0G1* 
FI LNAM/' PR06_r 
WKPLAN/XYP LAN 



xi, yi» z i c g & r s 



3B Jg jfi CD i£ < e u < 



4 UNITS/MM, ANGOEC 

5 DECL/GLOBAL, REAL.X 

6 DECL/GLOBAL. REAL. Y 

7 OEC L /GLOBAL, REAL. Z 

8 lM(AMY_CIRCLE)=MACR0/X1 . 
Y1.21.R1 ,-ANYCR" 
X=ASSIGN/2«R1 

F( ANYCR ) = FEAT/CI RCLE, CAR 
T. XI , Y1 . Z1 . . 0. . 0, -1 . 0. X 
ME AS/CIRCLE, F(ANYC.L) , 4 
G0T0/X1 , Y1 .21 
X=ASSIGM/X1+R1-1.0 
GOTO/X, Y1 ,21 
X=ASSIGN/X1+R1 

PTMEAS/CART.X.n.Zl.1.0. |s fflflDSWSxS S 31 « 
0. .0 

Y?ASSIGN/Y1+R1-1 . 0 
GOTO/X1.Y.Z1 
Y=ASSIGN/Y1+R1 

PTHEAS/CART.X1.Y.ZI..0. |s«©;HJS.<SSiHS 
1 . 0 . . 0 

X=ASSIGN/X1-K1+1.0 
GOTO/X , Y 1 , Z1 
X=ASSIGN/X 1-R1 

PTMEAS/CART.X. Y1.Z1. 
1.0. .0. .0 

Y=ASSIGN/Y1-R1+1 .0 
GOTO/XJ. Y.Z1 
Y=ASSIGN/Y1-R| 
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PTMEAS/CART,X1,Y,ZI..O. 

-1 .0. .0 

ENOMEAS 

EN0NACRO 

SNSET/APPRCH, . 125 
SNSET/SEARCH, . 125 

SNSET/RETRCT. . 125 

S(1)=SNSDEF/PROBE.IN0EX, 
POL. 2.0, .0, .0..0, .0, 
-1 .0. . 157 
SNSLCT/S( 1 ) 
MODE/MAN 



T(1)=T0l/0IAM.-.01..01 

D ISPl AY/PR TNT, DNIS, TERM. 

DMIS. STOR. OMIS 

F I LNAM/' PR0G1_0UT* 

PRCOMP/ON 

FE0RAT/P0SVEL.PCENT..75 

FE0RAT/MESVEL.PCENT..5 
$$(£ Z3 jt > hCEftf 

RECALL/0(W0RK.CS_1 ) 
M(ANY_SL0T)=MACR0/X1, Y1 , 
Zt .L.R1 , "AN YSLOT_CR 1 " , 

ANYSL0T_CR2".a"1P0", 

2P0". "3P0" ,"4P0" 



T * a © ♦» ij 
|SlffijftCD4r<DJ5< S T * < ft < 6 j* *> 4 

6 at » s 

70-71 S(E5 CfctUHCaSttS 

ais« s ^» c l r* -^ftaft^^ifcffiisijR 

( G 5 4 . G55)*30ij v * *l * WORK_CS_ 
1 , W0RK_CS_2 fc LTfiStS. 7 D - ' 

U 71/ i- a >srs 

&ft. 'iisjiiifitTiiasAJha 

ICDM I S8)7»-7» STfajf 
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46 X=ASSIGN/X1+L/2 

47 Y=ASSIGN/2*R1 

48 F( ANYSL0T_CR 1 )=FEAT/ 
CIRCLE. CART. X.Y1 ,Z1. .0. 
.0.-1 .0.Y 

49 |X=ASSIGN/X1-l/2 

50 F(ANYS10T_CR2)=FEAT/ |P)<DS8&ti ( £ W fi © S 
]ciRCLE.CART,X, Y1 .21. .0, 

0.-1. O.Y 

51 |MEAS/CIRCLE.F(ANYSLOT_CR | 3 A»S L P9 6 ff 2 
D.3 



XI, Y1 % Z 1 CSItTi 



IfflS /ft <D JS < C tt < 
S IS © iR£ £ £ in $ 



52 GOTO/X1 , Y1 ,Z1 

53 X=ASSIGN/X1+L/2+R1« 
|SIN(5) 

54 Y=ASSIGN/Y1+R1*C0S(5) 
-0. 1 

55 G0T0/X.Y.Z1 

56 Y=ASSIGN/X1+R1*C0S(5) 

57 I P THE AS /CART, X , Y1 , Z1 , 

SIN(5).C0S(5)..0 
5-8 fx=ASSIGN/X+L/2+R1-0. 1 

59 G0T0/X.Y1.Z1 

60 |X=ASSIGN/X+L/2+R 1 

61 PTMEAS/GART.X.Y1 ,Z1. 1 .0. |Bfla>SX.A«9|« 

|o.o,.o J jse <d m m .« © 2r < \z » < 

62 X=ASSIGN/X+L/2+R1*SIN(5) 

63 Y=ASSIGN/X1 -R1 *C0S(5) 
♦ 0.1 

64 GOTO/X.Y. Z1 

65 Iy=ASSIGN/X1-R1*C0S(5) 

66 PTMEAS/CART.X, Y, Z1 , 
' SIN(5).-C0S(5), .0 

67 ENDMEAS 
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68 X=ASSIGN/X1+0. 9*1/2 

89 I Y=ASS r GN/Yt +R 1 -0 . 1 

70 G0T0/X.Y.Z1 

71 |Y=ASSIGN/Y1 +R1 

72 F(IPO)=FEAT/POINT,CART. 

|x. r.zi . .o.i .o. .o 

73 MEAS/P0IHT.F(1P0), J 

74 I P THE AS /CART , X , Y , Z 1 , . 0 , 
1.0, .0 

75 IeNOMEAS 

76 X=ASSIGN/X1+0. 9*1/2 

77 Y=ASSIGN/Y1-Rl+0. 1 

78 G0T0/X.Y.Z1 

79 Y=ASSIGN/Y1-R1 

80 F(2P0)=FEAT/P0INT.CART. 
X. Y.Z1. .0.-1.0..0 

81 NEAS/P0INT,F(2P0). 1 

82 JpTMEAS/CART.X, Y, Z1 , .0, 

-1 .0. .0 

83 IENOMEAS 

84 X?ASSIGN/X1-0.9*L/2 

85 Y=ASSIGN/YI-R1+0. 1 

86 G0T0/X.Y.Z1 

87 Y=ASSIGN/Y1-R1 

88 F(3PO)=FEAT/P0INT.CART. 
IX.Y.Z1..0.-1.0..0 

89 MEAS/POINT,F(3P0), 1 

90 PTMEAS/CART. X, Y. Z1. .0, 
-1 .0. .0 

91 ENOMEAS 

92 Y=ASS IGN/Y 1 f R 1 -0 . 1 

93 G0T0/X.Y.Z1 

94 Y = ASS IGN/Y 1 +R 1 
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IE 



No. 



7 n 9 3 A 



x 1 » n, z i esitrs 



95 F(4P0)=FEAT/POINT.CART. 
X. Y.Z1..0. 1.0. .0 

96 |HEAS/P0INT,F(4P0). 1 

97 PTMEAS/CART.X, Y.Z1, .0, 
ll .0, .0 

98 lENDMEAS 

99 NEAS/CIRCIE.F(ANYS10T_Cr| 3 £ ffl S LP5 fcfW* 
2). 3 

100 G0T0/X1 .Y1.21 

101 |X=ASSIGN/X1-L/2+fi1* 
|SIN(5) 

102 |Y=ASSIGN/Y1+R1*COS(S) 
-0.1 

103 G0T0/X.Y.Z1 

104 Y=ASSIGN/X1+R1*COS(5) 

105 JPTME AS/CART, X, Y1 , 21 , 

SIN(5).COS(5). .0 

106 |x=ASSIGN/X-L/2tR1-0. 1 
107 
108 



\s m <d m & a% m i 



109 
1 10 

1 1 1 

1 12 
113 
114 

115 
116 
17 
118 



GOTO/X. Y1 ,Z1 
X=ASSIGN/X-L/2+R1 

ptmeas/cart.x.yi ,21.1.0. IsmmmzAimi 

X=ASSIGN/X-l/2+R1*SIN(5) 
Y=ASSIGN/Xl+R1*COS(5) 
+ 0. 1 

GOTO/X , Y , 2 1 
Y=ASSIGN/X1-R1«COS(5) 
PTMEAS/CART.X.Y.21 . 
SIN(5).-COS(5). .0 
ENOMEAS 

GOTO/.O. .0.5.0 
ENOMACRO 

GOTO/70. 0.-50. 0.5.0 
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No 
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119 



120 
121 
122 

123 
124 
125 

1 1 26 
127 
1 28 

[ 1 29 
130 



131 

132 
133 

1134 
1 35 
1 36 

1 37 
138 

139 

140 

141 



CALL/M(ANY_CIRCLE).70.0. fiflCDP! & S8 (, f L T] 9> * <D JR £ 
-50. 0.-12. 5, (ICR). 10 FA (ICR) IZ A tl 3 

GOTO/70. 0,-50. 0,5.0 |««JCD Pl<D±IZ&lbTZ 

GOTO/70.0,50.0,5.0 

CAll/M(ANY_CIRClE),70.0. |^#@<OPJSS«L*UT38»). * © » » ft 
50. 0.-12. 5, (2CR), 10 J F A (ICR) C \ tl i 

GOTO/70.0. SO. 0.5.0 
G0T0/-70.0, 50.0. 5.0 
CALL/M( ANY_CIRCLE) , 
-70. 0. 50. 0.-1 2. 5. OCR) 
GOTO/-70.0. 50.0, 5.0 
G0T0/-70. 0,-50. 0.5.0 
CALL/M(ANY_CIRCLE), 
-70.0, -SO. 0. -12-5. (4CR) 
GOTO/-70.0. -50.0.5.0 . 

CALL/M(ANY_SLOT), .0. .0. | * a *j h ^ $ S 

0. 60.0.20.0, " ANYSLOT_CR 
1", "ANYSL0T_CR2-.4"1P0-, 
2PO","3P0"."4PO" 

RECALL/D(W0RK_CS_2) If £ 3H S fc «k ^ABS I, 2 « if 

( tf X T 

GOTO/.0.40.O.S.O 

CALl/M(ANY_CIRClE)..0, [~ 0<OR<Dfifl]<OFJfc:g*L£l!5 

40. 0,-10. 0.(51CR) 

GOTO/. 0,40. 0,5.0 

GOTO/. 0,-40. 0.5.0 

&A4L/M(ANY_CIRCIE),.0. 

-40.0, -1 0.0, (52CR) 

GOTO/. 0,-40. 0.5.0 

EVAL/FA( ICR). FA(2CR). 
FA(3CR).FA(4CR).T(1) 
0UTPUT/F(1CR),F(2CR), 
F(3CR),F(4CR).T(1) 
0UTPUT/FA(1CR).FA(2CR), 
FA(3CR), FA(4CR).TA(1) 
EN0FIL 
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